VERSION 5.00
Object = "*\A..\Control\Project cListview Control.vbp"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4095
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   ScaleHeight     =   4095
   ScaleWidth      =   7095
   StartUpPosition =   3  'Windows Default
   Begin cListview_Control.cListview cListview1 
      Height          =   3135
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   5530
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Modify Users"
      Height          =   615
      Left            =   1320
      TabIndex        =   2
      Top             =   3240
      Width           =   1335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Find User"
      Height          =   615
      Left            =   2760
      TabIndex        =   1
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Add Users"
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   3240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub cListview1_UserInformation(ByVal Username As String, ByVal Client As String, ByVal Flags As String, ByVal Ping As String, ByVal Socket As String)
Debug.Print "Name: " & Username
Debug.Print "Client: " & Client
Debug.Print "Flags: " & Flags
Debug.Print "Ping: " & Ping
Debug.Print "Sock: " & Socket

End Sub

Private Sub cListview1_UserOnline(ByVal Username As String, ByVal Message As String)
Debug.Print Username & " " & Message
End Sub

Private Sub cListview1_UserUpdate(ByVal Username As String, ByVal Message As String)
Debug.Print "Name: " & Username & " " & Message
End Sub

Private Sub Command3_Click()
With cListview1
    Call .ModifyUser("Fallen", "TAHC", "A3", "144")
    Call .ModifyUser("Fallen5", "SEXP", "B1", "302")
End With

End Sub

Private Sub Form_Load()
'Set List = ListView1
'        Call Setup_UserInformation_Columns(List)

    With cListview1
     Call .AddNewColumn("Username", 1300)
     Call .AddNewColumn("Client", 700)
     Call .AddNewColumn("Flags", 700)
     Call .AddNewColumn("Ping", 700)
     Call .AddNewColumn("Socket", 700)
       
    End With
        
End Sub

Private Sub Command1_Click()
With cListview1
    Call .AddUser("Fallen", "SEXP", "A1", "102", "0")
    Call .AddUser("Fallen2", "RATS", "A0", "102", "1")
    Call .AddUser("Fallen3", "VD2D", "A0", "102", "2")
    Call .AddUser("Fallen4", "PX2D", "A0", "102", "3")
    Call .AddUser("Fallen5", "3RAW", "A4", "102", "4")
    Call .AddUser("Fallen6", "NB2W", "A4", "102", "5")
End With
End Sub

Private Sub Command2_Click()
    Call cListview1.FindUser("Fallen")
    
End Sub
